home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / 4.imz / 4.IMA / SEEK4.FR_ / SEEK4.bin
Text File  |  1993-04-28  |  4KB  |  161 lines
  1. VERSION 2.00
  2. Begin Form fSeek 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Seek Parameters"
  6.    ClientHeight    =   1455
  7.    ClientLeft      =   1440
  8.    ClientTop       =   2595
  9.    ClientWidth     =   4335
  10.    Height          =   1860
  11.    Left            =   1380
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   1455
  14.    ScaleWidth      =   4335
  15.    Top             =   2250
  16.    Width           =   4455
  17.    Begin CommandButton CancelBtn 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "&Cancel"
  20.       Height          =   375
  21.       Left            =   2520
  22.       TabIndex        =   8
  23.       Top             =   960
  24.       Width           =   1215
  25.    End
  26.    Begin CommandButton OKBtn 
  27.       Caption         =   "&OK"
  28.       Default         =   -1  'True
  29.       Height          =   375
  30.       Left            =   600
  31.       TabIndex        =   7
  32.       Top             =   960
  33.       Width           =   1215
  34.    End
  35.    Begin OptionButton cSeekOp 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "="
  38.       ForeColor       =   &H00000000&
  39.       Height          =   255
  40.       Index           =   0
  41.       Left            =   1080
  42.       TabIndex        =   5
  43.       Top             =   120
  44.       Value           =   -1  'True
  45.       Width           =   495
  46.    End
  47.    Begin OptionButton cSeekOp 
  48.       BackColor       =   &H00C0C0C0&
  49.       Caption         =   ">="
  50.       ForeColor       =   &H00000000&
  51.       Height          =   255
  52.       Index           =   1
  53.       Left            =   1680
  54.       TabIndex        =   4
  55.       TabStop         =   0   'False
  56.       Top             =   120
  57.       Width           =   615
  58.    End
  59.    Begin OptionButton cSeekOp 
  60.       BackColor       =   &H00C0C0C0&
  61.       Caption         =   "<="
  62.       ForeColor       =   &H00000000&
  63.       Height          =   255
  64.       Index           =   2
  65.       Left            =   2400
  66.       TabIndex        =   3
  67.       TabStop         =   0   'False
  68.       Top             =   120
  69.       Width           =   615
  70.    End
  71.    Begin OptionButton cSeekOp 
  72.       BackColor       =   &H00C0C0C0&
  73.       Caption         =   ">"
  74.       ForeColor       =   &H00000000&
  75.       Height          =   255
  76.       Index           =   3
  77.       Left            =   3120
  78.       TabIndex        =   2
  79.       TabStop         =   0   'False
  80.       Top             =   120
  81.       Width           =   495
  82.    End
  83.    Begin OptionButton cSeekOp 
  84.       BackColor       =   &H00C0C0C0&
  85.       Caption         =   "<"
  86.       ForeColor       =   &H00000000&
  87.       Height          =   255
  88.       Index           =   4
  89.       Left            =   3720
  90.       TabIndex        =   1
  91.       TabStop         =   0   'False
  92.       Top             =   120
  93.       Width           =   495
  94.    End
  95.    Begin TextBox cSeekValue 
  96.       Height          =   285
  97.       Left            =   1080
  98.       TabIndex        =   0
  99.       Top             =   480
  100.       Width           =   3135
  101.    End
  102.    Begin Label ValLabel 
  103.       BackColor       =   &H00C0C0C0&
  104.       Caption         =   "Value:"
  105.       Height          =   255
  106.       Left            =   120
  107.       TabIndex        =   9
  108.       Top             =   480
  109.       Width           =   735
  110.    End
  111.    Begin Label OpLabel 
  112.       BackColor       =   &H00C0C0C0&
  113.       Caption         =   "Operator:"
  114.       Height          =   255
  115.       Left            =   120
  116.       TabIndex        =   6
  117.       Top             =   120
  118.       Width           =   855
  119.    End
  120. End
  121. Sub CancelBtn_Click ()
  122.   gstSeekValue = ""
  123.   cSeekValue.SetFocus
  124.   Me.Hide
  125. End Sub
  126.  
  127. Sub cSeekOp_Click (Index As Integer)
  128.   cSeekValue.SetFocus
  129. End Sub
  130.  
  131. Sub cSeekValue_Change ()
  132.   If cSeekValue = "" Then
  133.     OKBtn.Enabled = False
  134.   Else
  135.     OKBtn.Enabled = True
  136.   End If
  137. End Sub
  138.  
  139. Sub Form_Load ()
  140.   Left = (Screen.Width - Width) / 2
  141.   Top = (Screen.Height - Height) / 2
  142. End Sub
  143.  
  144. Sub OKBtn_Click ()
  145.   If cSeekOp(0) = True Then
  146.     gstSeekOperator = "="
  147.   ElseIf cSeekOp(1) = True Then
  148.     gstSeekOperator = ">="
  149.   ElseIf cSeekOp(2) = True Then
  150.     gstSeekOperator = "<="
  151.   ElseIf cSeekOp(3) = True Then
  152.     gstSeekOperator = ">"
  153.   ElseIf cSeekOp(4) = True Then
  154.     gstSeekOperator = "<"
  155.   End If
  156.   gstSeekValue = cSeekValue
  157.   cSeekValue.SetFocus
  158.   Me.Hide
  159. End Sub
  160.  
  161.